home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Clinical Endocrinology
/
Clinical Endocrinology.iso
/
mac
/
00000000
/
Intro.dir
/
00010_Script_10
< prev
next >
Wrap
Text File
|
1995-11-09
|
1KB
|
35 lines
------------------------------------------
-- Handler to open the MIAW for keeping screen history.
on openHistoryWindow
global gSep, CDDrive
put CDDrive & "00000000" & gSep & "History.dir" into childWindow
-- Define Window boundaries
set theTop = the stageTop - 8
set theLeft = the stageLeft - 8
set theBottom = theTop + 2
set theRight = theLeft + 2
set the rect of window childWindow = rect(theLeft,theTop,theRight,theBottom)
set the title of window childWindow to "History"
set the windowType of window childWindow = 4
--set the modal of window childWindow = TRUE
open window childWindow
set the visible of window childWindow to false
-- Define Window boundaries
set theTop = the stageTop + 100
set theLeft = the stageLeft + 200
set theBottom = theTop + 240
set theRight = theLeft + 240
set the rect of window childWindow = rect(theLeft,theTop,theRight,theBottom)
end openHistoryWindow
------------------------------------------